home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / graphics / n-z / raystorexa / arexx / eight.ray < prev    next >
Text File  |  1995-11-05  |  1KB  |  74 lines
  1. /***************
  2.  * NAME:          eight.rexx
  3.  * VERSION:       1.0 10.07.1995
  4.  * DESCRIPTION:
  5.  * AUTHORS:          Andreas Heumann
  6.  * BUGS:          none
  7.  * TO DO:         none
  8.  * HISTORY:       DATE        NAME    COMMENT
  9.  *                    10.07.95    ah       first release
  10.  ***************/
  11.  
  12. signal on error
  13.  
  14. options results
  15.  
  16. IF ~show('P','RAYSTORM') THEN DO
  17.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  18.     address COMMAND WaitForPort RAYSTORM
  19. END  
  20.  
  21. address RAYSTORM
  22.  
  23. 'OBJECTPATH /objects'
  24. 'BRUSHPATH mcpp:work/octree/brushes'
  25.  
  26. 'SETSCREEN 160 128'
  27. 'SETCAMERA <100,100,-120> <0,5,5> <0,1,0> 25 20'
  28. 'SETWORLD [0,0,0] [50,50,50]'
  29. 'POINTLIGHT <-20,200,-100> SHADOW'
  30. 'POINTLIGHT <-20,200,100> SHADOW'
  31.  
  32. 'NEWSURFACE TABLETOP'
  33. 'DIFFUSE [0,80,0]'
  34.  
  35. 'PLANE TABLETOP <0,0,0> <0,1,0>'
  36.  
  37. 'NEWSURFACE EIGHT'
  38. 'DIFFUSE [0,0,0]'
  39. 'AMBIENT [38,38,38]'
  40. 'REFLECT [38,38,38]'
  41. 'BRUSH eight_brush.iff COLOR FLAT <0,5,0> <0,0,0> <4,4,5.1>'
  42.  
  43. 'SPHERE EIGHT <0,5,0> 5'
  44.  
  45. 'NEWSURFACE WHITE'
  46. 'DIFFUSE [255,255,255]'
  47. 'AMBIENT [51,51,51]'
  48. 'REFLECT [38,38,38]'
  49.  
  50. 'SPHERE WHITE <0,5,10> 5'
  51.  
  52. 'LOADOBJ eight_queue.iob <20,0,0>'
  53.  
  54. 'NEWSURFACE WINDOW BRIGHT'
  55.  
  56. 'TRIANGLE WINDOW <600,100,-400> <600,100,-100> <600,300,-200>'
  57. 'TRIANGLE WINDOW <600,300,-400> <600,100,-100> <600,300,-50>'
  58. 'TRIANGLE WINDOW <600,100,400>  <600,100,100>  <600,300,200>'
  59. 'TRIANGLE WINDOW <600,300,400>  <600,100,100>  <600,300,50>'
  60.  
  61. 'STARTRENDER'
  62.  
  63. 'SAVEPIC eight.iff'
  64.  
  65. 'CLEANUP'
  66.  
  67. exit 0
  68.  
  69. error:
  70. say "Error" rc "in line" sigl ":"
  71. GETERRORSTR rc
  72. say result
  73. exit 0
  74.